inherited frmRecalcAct: TfrmRecalcAct
  Left = 297
  Top = 250
  Width = 896
  Height = 500
  ActiveControl = fraAddress1.dbt1
  Caption = #1055#1077#1088#1077#1089#1095#1077#1090' '#1072#1082#1090#1086#1074
  Constraints.MinHeight = 400
  Constraints.MinWidth = 790
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 446
    Width = 888
    object Label1: TLabel [0]
      Left = 0
      Top = 8
      Width = 182
      Height = 13
      Caption = #1050#1086#1083#1080#1095#1077#1089#1090#1074#1086' '#1072#1082#1090#1086#1074' '#1076#1083#1103' '#1087#1077#1088#1077#1088#1072#1089#1095#1077#1090#1072':'
    end
    object lRecCount: TLabel [1]
      Left = 188
      Top = 8
      Width = 73
      Height = 13
      AutoSize = False
    end
    inherited BitBtn1: TBitBtn
      Left = 433
      Top = 9
      Visible = False
    end
    inherited BitBtn2: TBitBtn
      Left = 783
    end
    object BitBtn3: TBitBtn
      Left = 679
      Top = 1
      Width = 97
      Height = 25
      Action = aRecalcActs
      Anchors = [akTop, akRight]
      Caption = #1055#1077#1088#1077#1089#1095#1077#1090
      TabOrder = 2
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        1800000000000003000000000000000000000000000000000000FFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD2DF
        F8F4F4F6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFC9C9CCDADADD0392FB069CFE969CBDFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF1F1F12230A1000DEA9698B22CB7
        FA56FFFF26B1FEF3F3F5F8F5F585724D8C8B65988B69988B68928A668D8A6494
        91622C2C810004FF0002FF605F6A3385F36EB4F75BAEFCCFDEF8F6E7E466E4A4
        71FFC491FFCD90FFCE7EFFC772FFC376FFC00000C00D15FF1319F836758E58B2
        A741857DBFBEC1FFFFFFF5E7E46ADB9E74FABF96FBC895FBC882F8C176F8BD7C
        FFBD0C11B83F46FF4C52FF4146EE3639F01E27E9B2B2BAFFFFFFF5E7E470DEA5
        7AFAC19BFBCB9AFBCB87F8C37BF7BF80FFC13F669E6061FB8588FF888BFF7A7E
        FF2326A2DCD9D9FFFFFFF6E8E62FAD5288FFD0A1FBCFA0FBCE8DFAC984FCC981
        F9C27EFFC13C619C4B50BD5C60C8374AA874A982DBD7D7FFFFFFF4E9E6C19054
        0FC25BB3FFE1A8FDD671F0B52EB14D84FECC85F9C687FFC697F8C996ECC7A7FF
        D677C98EDAD7D7FFFFFFF2E9E6F99A71CCA5662DC66BA0FBD2369E34FFAA7C34
        AF4C8AFED187F8C79BFBCFABFDD5A5FFD678C68EDAD7D7FFFFFFF2E9E6EF9D72
        FFB58DBFA8693B9F39FFB28EFFB38AF2AD7E23B04990FFD5A4FDD8B3FEDDA9FF
        DA7AC68FDAD7D7FFFFFFF2E8E5EFAF8EFFC8AAFFC7ABFFC7ADFFC7A9FFC6A9FF
        C7ABEEBF9A14B44A7BD49629A83FBDFFE97DC692DAD7D7FFFFFFF2E8E4EFC1AC
        FFDCCAFFDAC7FFDAC7FFDAC7FFDAC7FFDAC7FFDCCBE0D1B0A2C087FED8C54BB5
        5B81CA9ADAD7D7FFFFFFF2E6E3F3DBD0FFFAF4FFF8F2FFF8F2FFF8F2FFF8F2FF
        F8F2FFF8F2FFF9F4FFFAF6FFF9F5F5F5E85C9643D9D6D6FFFFFFFBFAF9C99B8B
        D3AB9CD2AA9BD2AA9BD2AA9BD2AA9BD2AA9BD2AA9BD2AA9BD2AA9BD2AA9BD6AC
        9ED3A397FEFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
    end
  end
  inherited ToolBar1: TToolBar
    Width = 888
    Height = 0
    EdgeInner = esNone
    EdgeOuter = esNone
    Visible = False
  end
  object Panel2: TPanel [2]
    Left = 0
    Top = 0
    Width = 888
    Height = 446
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    inline fraAddress1: TfraAddress
      Left = 630
      Top = 0
      Width = 258
      Height = 446
      Align = alRight
      TabOrder = 0
      inherited SearchBox: TGroupBox
        Height = 446
        Caption = ' '#1060#1080#1083#1100#1090#1088' '
        Constraints.MinHeight = 170
        inherited SubPanel: TPanel
          Height = 429
          inherited Label9: TLabel
            Left = 38
            Top = 442
          end
          inherited Label8: TLabel
            Left = 38
            Top = 414
          end
          inherited Label6: TLabel
            Left = 38
            Top = 411
            Visible = False
          end
          inherited Label7: TLabel
            Left = 38
            Top = 413
          end
          inherited Label5: TLabel
            Left = 80
            Top = 428
            Visible = False
          end
          inherited Label4: TLabel
            Left = 59
            Top = 413
            Visible = False
          end
          inherited Label3: TLabel
            Left = 47
            Top = 115
            Alignment = taRightJustify
          end
          inherited Label2: TLabel
            Left = 38
            Top = 91
            Alignment = taRightJustify
          end
          inherited Label12: TLabel
            Left = 1
            Top = 36
            Caption = #1059#1089#1083#1091#1075#1072
            Visible = True
          end
          inherited Label11: TLabel
            Left = 152
            Top = 10
            Width = 14
            Caption = #1087#1086
            Visible = True
          end
          inherited Label10: TLabel
            Left = 1
            Top = 10
            Caption = #1044#1072#1090#1072' '#1072#1082#1090#1072' '#1089
            Visible = True
          end
          inherited Label1: TLabel
            Left = 19
            Top = 67
            Alignment = taRightJustify
          end
          inherited Label13: TLabel
            Left = 38
            Top = 474
          end
          inherited Label14: TLabel
            Left = 38
            Top = 454
          end
          inherited Label15: TLabel
            Left = 38
            Top = 434
          end
          inherited TownBox: TDBLookupComboboxEh
            Left = 76
            Top = 64
            Width = 170
            DropDownBox.SpecRow.CellsText = ' ----'
            DropDownBox.SpecRow.Value = '-1'
            DropDownBox.SpecRow.Visible = True
            ListFieldIndex = 0
            TabOrder = 3
          end
          inherited StreetBox: TDBLookupComboboxEh
            Left = 76
            Top = 88
            Width = 170
            TabOrder = 4
          end
          inherited NLSEdit: TDBEditEh
            Left = 112
            Top = 422
            TabOrder = 5
            Visible = False
          end
          inherited NameEdit: TDBEditEh
            Left = 112
            Top = 417
            TabOrder = 6
            Visible = False
          end
          inherited HouseBox: TDBLookupComboboxEh
            Left = 76
            Top = 112
            Width = 170
            TabOrder = 7
          end
          inherited FindBtn: TButton
            Left = 76
            Top = 137
            Width = 85
            Action = aSearchActs
            TabOrder = 13
          end
          inherited dbt2: TDBDateTimeEditEh
            Left = 169
            Top = 7
            Width = 76
            TabStop = True
            Enabled = True
            TabOrder = 1
            Visible = True
          end
          inherited dbt1: TDBDateTimeEditEh
            Left = 76
            Top = 7
            Width = 76
            TabStop = True
            Enabled = True
            TabOrder = 0
            Value = 40544d
            Visible = True
          end
          inherited dbn2: TDBNumberEditEh
            Left = 112
            Top = 420
            TabOrder = 9
          end
          inherited dbn1: TDBNumberEditEh
            Left = 112
            Top = 415
            TabOrder = 10
          end
          inherited dbe2: TDBEditEh
            Left = 112
            Top = 460
            TabOrder = 11
          end
          inherited dbe1: TDBEditEh
            Left = 112
            Top = 440
            TabOrder = 12
          end
          inherited ClearBtn: TButton
            Left = 166
            Top = 137
            Width = 81
            TabOrder = 14
            OnClick = fraAddress1ClearBtnClick
          end
          inherited AppartBox: TDBLookupComboboxEh
            Left = 112
            Top = 407
            TabOrder = 8
            Visible = False
          end
          inherited AddBtn: TButton
            Left = 104
            Top = 415
            Caption = #1044#1086#1073#1072#1074#1080#1090#1100
            TabOrder = 15
            TabStop = False
            Visible = False
          end
          inherited lcb1: TDBLookupComboboxEh
            Left = 76
            Top = 32
            Width = 170
            TabStop = True
            DropDownBox.SpecRow.CellsText = ' ----'
            DropDownBox.SpecRow.Visible = True
            KeyField = 'ID'
            ListField = 'NAME'
            ListFieldIndex = 0
            ListSource = dscServices
            TabOrder = 2
            Visible = True
          end
          inherited lcb2: TDBLookupComboboxEh
            Left = 112
            Top = 452
          end
          inherited lcb3: TDBLookupComboboxEh
            Left = 112
            Top = 472
          end
          inherited cb1: TDBCheckBoxEh
            Left = 20
            Top = 422
          end
          inherited cb2: TDBCheckBoxEh
            Left = 20
            Top = 412
          end
          inherited cb3: TDBCheckBoxEh
            Left = 20
            Top = 432
          end
        end
      end
      inherited QStreets: TpFIBDataSet
        Transaction = LocalTrans
        Database = MAINDM.pMainDatabase
        UpdateTransaction = LocalTrans
        Top = 308
      end
      inherited QHouses: TpFIBDataSet
        Transaction = LocalTrans
        Database = MAINDM.pMainDatabase
        UpdateTransaction = LocalTrans
        Top = 340
      end
      inherited QTowns: TpFIBDataSet
        Transaction = LocalTrans
        Database = MAINDM.pMainDatabase
        UpdateTransaction = LocalTrans
        Top = 276
      end
      inherited QApparts: TpFIBDataSet
        SelectSQL.Strings = ()
        Transaction = LocalTrans
        UpdateTransaction = LocalTrans
        Top = 372
      end
      inherited ds_QTowns: TDataSource
        Top = 276
      end
      inherited ds_QApparts: TDataSource
        Top = 372
      end
      inherited ds_QHouses: TDataSource
        Top = 340
      end
      inherited ds_QStreets: TDataSource
        Top = 308
      end
    end
    object Panel3: TPanel
      Left = 0
      Top = 0
      Width = 630
      Height = 446
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object dbgMeterList: TDBGridEh
        Left = 0
        Top = 0
        Width = 630
        Height = 446
        Align = alClient
        AllowedOperations = []
        ColumnDefValues.Title.TitleButton = True
        Constraints.MinHeight = 200
        DataGrouping.GroupLevels = <>
        DataSource = dscAccpointActs
        EditActions = [geaCopyEh]
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghMultiSortMarking, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
        PopupMenu = pmMeterList
        RowDetailPanel.Color = clBtnFace
        SortLocal = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        VTitleMargin = 5
        OnSortMarkingChanged = dbgMeterListSortMarkingChanged
        Columns = <
          item
            EditButtons = <>
            FieldName = 'RACT_ID'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RACC_NAME'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RACT_DATE'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RACT_BDATE'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RACT_EDATE'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RSERVICE_NAME'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'POTR'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RACT_TYPE'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RMESSAGE'
            Footers = <>
          end>
        object RowDetailData: TRowDetailPanelControlEh
        end
      end
    end
  end
  inherited ActionList1: TActionList
    Images = MAIN.ImageList
    Left = 440
    Top = 32
    inherited aCancel: TAction
      OnExecute = aCancelExecute
    end
    object aSearchActs: TAction
      Caption = #1044#1086#1073#1072#1074#1080#1090#1100
      Hint = #1053#1072#1081#1090#1080' '#1074#1089#1077' '#1072#1082#1090#1099' '#1089' '#1076#1072#1090#1086#1081' '#1084#1077#1078#1076#1091' ...'
      OnExecute = aSearchActsExecute
    end
    object aRecalcActs: TAction
      Caption = #1055#1077#1088#1077#1089#1095#1077#1090
      Hint = #1055#1077#1088#1077#1089#1095#1080#1090#1072#1090#1100' '#1074#1089#1077' '#1074#1099#1073#1088#1072#1085#1085#1099#1077' '#1072#1082#1090#1099
      ImageIndex = 12
      OnExecute = aRecalcActsExecute
    end
  end
  inherited PropStorage: TPropStorageEh
    Section = 'TfrmRecalcAct'
    StoredProps.Strings = (
      '<P>.Height'
      '<P>.Left'
      '<P>.PixelsPerInch'
      '<P>.Top'
      '<P>.Width'
      '<P>.WindowState'
      'Panel2.Panel3.dbgMeterList.<P>.Columns.ColumnsIndex'
      'Panel2.Panel3.dbgMeterList.<P>.Columns.<ForAllItems>.Width')
    Left = 404
    Top = 32
  end
  object dsAccpointActs: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '  RACT_ID,'
      '  RACC_NAME, '
      '  RACT_TYPE, '
      '  RACT_DATE, '
      '  RACT_BDATE, '
      '  RACT_EDATE, '
      '  RSERVICE_NAME, '
      '  POTR,'
      '  cast('#39#39' as d_str) as RMESSAGE'
      'FROM'
      '    PROC_V_ACCPOINT_ACTS(:PADDPARAM) '
      '--where :pex_acts not containing ')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Left = 185
    Top = 118
    oFetchAll = True
    object dsAccpointActsRACT_ID: TFIBIntegerField
      DisplayLabel = #1048#1044' '#1072#1082#1090#1072
      FieldName = 'RACT_ID'
    end
    object dsAccpointActsRACC_NAME: TFIBStringField
      DisplayLabel = #1053#1072#1079#1074#1072#1085#1080#1077' '#1058#1059
      FieldName = 'RACC_NAME'
      EmptyStrToNull = True
    end
    object dsAccpointActsRACT_DATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1072#1082#1090#1072
      FieldName = 'RACT_DATE'
    end
    object dsAccpointActsRACT_BDATE: TFIBDateField
      DisplayLabel = #1055#1077#1088#1080#1086#1076'|'#1089
      FieldName = 'RACT_BDATE'
    end
    object dsAccpointActsRACT_EDATE: TFIBDateField
      DisplayLabel = #1055#1077#1088#1080#1086#1076'|'#1087#1086
      FieldName = 'RACT_EDATE'
    end
    object dsAccpointActsRSERVICE_NAME: TFIBStringField
      DisplayLabel = #1059#1089#1083#1091#1075#1072
      FieldName = 'RSERVICE_NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object dsAccpointActsPOTR: TFIBBCDField
      DisplayLabel = #1055#1086#1090#1088#1077#1073#1083#1077#1085#1080#1077
      FieldName = 'POTR'
      Size = 3
      RoundByScale = True
    end
    object dsAccpointActsRMESSAGE: TFIBStringField
      DisplayLabel = #1056#1077#1079#1091#1083#1100#1090#1072#1090
      FieldName = 'RMESSAGE'
      Size = 255
      EmptyStrToNull = True
    end
    object dsAccpointActsRACT_TYPE: TFIBStringField
      DisplayLabel = #1058#1080#1087' '#1072#1082#1090#1072
      FieldName = 'RACT_TYPE'
      Size = 30
      EmptyStrToNull = True
    end
  end
  object mteAccpointActs: TMemTableEh
    FieldDefs = <>
    IndexDefs = <
      item
        Name = 'mteAccpointActsIndex1'
        Fields = 'RACT_ID'
      end>
    Params = <>
    StoreDefs = True
    AfterOpen = mteAccpointActsAfterOpen
    BeforeInsert = mteAccpointActsBeforeInsert
    AfterInsert = mteAccpointActsAfterOpen
    AfterDelete = mteAccpointActsAfterOpen
    Left = 232
    Top = 118
    object mteAccpointActsRACT_ID: TIntegerField
      DisplayLabel = #1048#1044' '#1072#1082#1090#1072
      DisplayWidth = 8
      FieldName = 'RACT_ID'
    end
    object mteAccpointActsRACC_NAME: TStringField
      DisplayLabel = #1053#1072#1079#1074#1072#1085#1080#1077' '#1058#1059
      FieldName = 'RACC_NAME'
    end
    object mteAccpointActsRACT_DATE: TDateField
      DisplayLabel = #1044#1072#1090#1072' '#1072#1082#1090#1072
      FieldName = 'RACT_DATE'
    end
    object mteAccpointActsRACT_BDATE: TDateField
      DisplayLabel = #1055#1077#1088#1080#1086#1076'|'#1089
      FieldName = 'RACT_BDATE'
    end
    object mteAccpointActsRACT_EDATE: TDateField
      DisplayLabel = #1055#1077#1088#1080#1086#1076'|'#1087#1086
      FieldName = 'RACT_EDATE'
    end
    object mteAccpointActsRSERVICE_NAME: TStringField
      DisplayLabel = #1059#1089#1083#1091#1075#1072
      DisplayWidth = 20
      FieldName = 'RSERVICE_NAME'
      Size = 120
    end
    object mteAccpointActsPOTR: TBCDField
      DisplayLabel = #1055#1086#1090#1088#1077#1073#1083#1077#1085#1080#1077
      DisplayWidth = 14
      FieldName = 'POTR'
      Size = 0
    end
    object mteAccpointActsRACT_TYPE: TStringField
      DisplayLabel = #1058#1080#1087' '#1072#1082#1090#1072
      DisplayWidth = 16
      FieldName = 'RACT_TYPE'
      Size = 30
    end
    object mteAccpointActsRMESSAGE: TStringField
      DisplayLabel = #1056#1077#1079#1091#1083#1100#1090#1072#1090
      DisplayWidth = 16
      FieldName = 'RMESSAGE'
      Size = 255
    end
  end
  object dscAccpointActs: TDataSource
    DataSet = mteAccpointActs
    Left = 269
    Top = 118
  end
  object LocalTrans: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 324
    Top = 118
  end
  object qRecalc: TpFIBQuery
    Transaction = trRecalc
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      'SELECT count(1)'
      'FROM'
      '    PROC_GEN_CHARGE_METER(:PACT_ID,'
      '    :pdate,'
      '    1) ')
    Left = 201
    Top = 151
    qoStartTransaction = True
  end
  object trRecalc: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 324
    Top = 150
  end
  object dsServices: TpFIBDataSet
    SelectSQL.Strings = (
      'select s.id, s.name from services s'
      '  where s.group_id = 0'
      '    and exists (select 1 from dogovors ds, services ss'
      '          where ds.service_id = ss.id and ss.group_id = s.id'
      '            and ds.is_active = 1)'
      '    and exists (select 1 from vw_straits vw'
      '          where vw.code = '#39'CAN_METER'#39' and vw.service_id = s.id)'
      '  order by 2')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Left = 686
    Top = 212
    oFetchAll = True
    object dsServicesID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsServicesNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
  end
  object dscServices: TDataSource
    DataSet = dsServices
    Left = 722
    Top = 212
  end
  object pmMeterList: TPopupMenu
    Left = 544
    Top = 120
    object N1: TMenuItem
      Caption = #1059#1076#1072#1083#1080#1090#1100' '#1079#1072#1087#1080#1089#1100
      ShortCut = 46
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #1059#1076#1072#1083#1080#1090#1100' '#1074#1089#1077
      ShortCut = 16430
      OnClick = N2Click
    end
  end
  object ddmteAccpointActs: TDataSetDriverEh
    ProviderDataSet = dsAccpointActs
    Left = 208
    Top = 118
  end
end
